home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MOS / INOUTBAS.I < prev    next >
Encoding:
Modula Implementation  |  1990-05-03  |  1.4 KB  |  49 lines
  1. IMPLEMENTATION MODULE InOutBase;
  2. (*$Y+,L-,M-,N+*)
  3.  
  4. FROM SYSTEM IMPORT ASSEMBLER;
  5. FROM SystemError IMPORT AbortWithMsg;
  6.  
  7. PROCEDURE InOutErr;
  8.   BEGIN
  9.     ASSEMBLER
  10.         LEA     msg(PC),A0
  11.         MOVE.L  A0,(A3)+
  12.         JMP     AbortWithMsg
  13.     msg ACZ     'InOut driver is missing'
  14.     END
  15.   END InOutErr;
  16.  
  17. PROCEDURE InOutRtn;
  18.   END InOutRtn;
  19.  
  20. BEGIN
  21.   ASSEMBLER
  22.         MOVE.L  #InOutErr,Read
  23.         MOVE.L  #InOutErr,Write
  24.         MOVE.L  #InOutErr,OpenWdw
  25.         MOVE.L  #InOutErr,KeyPressed
  26.         MOVE.L  #InOutErr,CondRead
  27.         MOVE.L  #InOutErr,WriteLn
  28.         MOVE.L  #InOutErr,WritePg
  29.         MOVE.L  #InOutErr,WriteString
  30.         MOVE.L  #InOutErr,ReadString
  31.         MOVE.L  #InOutErr,GotoXY
  32.         MOVE.L  #InOutErr,GetInput
  33.         MOVE.L  #InOutErr,GetOutput
  34.         MOVE.L  #InOutErr,OpenError
  35.         MOVE.L  #InOutErr,IOError
  36.         MOVE.L  #InOutErr,FlushKbd
  37.         
  38.         MOVE.L  #InOutRtn,CloseWdw      ; hier keinen Fehler melden.
  39.         MOVE.L  #InOutRtn,fCloseInput   ; hier keinen Fehler melden.
  40.         MOVE.L  #InOutRtn,fCloseOutput  ; hier keinen Fehler melden.
  41.         
  42.         ; die restlichen f..-Funktionen brauchen nicht
  43.         ; init. zu werden, da sie nicht angesprungen wer-
  44.         ; den können, solange nicht InOutFile 'consIn/Out'
  45.         ; auf FALSE setzt, und dann sind auch die f..-Vars
  46.         ; initialisiert.
  47.   END
  48. END InOutBase.
  49.